#!/usr/bin/perl -w
use strict;
use warnings;

my $group_size = 100;
my $group_num = 8;
my $spider_index = 1;
my $total_spider_num = $group_size * $group_num;

for (my $i = ($spider_index - 1) * $group_size; $i < $spider_index * $group_size; ++$i) {
	`nohup ./phone_num_spider.pl $total_spider_num $i >>log/phone_num_spider.log 2>>log/phone_num_spider.err &`;
}

#	kill `ps aux | grep phone_num_spider | grep -v grep | perl -ne '@r=split(" "); print "$r[1]\n"'`
